home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / aga / aga022.dms / in.adf / LhaIntuiv1.1 / Script < prev   
Encoding:
Text File  |  1992-09-02  |  1.7 KB  |  59 lines
  1. ; $ver: Lethal-Archiver-Intuition 1.1 (17.4.93)
  2. ; oh! the wonders of Amigados 3.
  3. ; Some months ago I dreamed of making lha intuitive.
  4. ; Now due to the brilliant Amigados 3 I've done it
  5. C:requestchoice >env:ready "Lethal Lha intuitive" "Are you ready to use the Lethal! intuitive archiver" "YES" "CANCEL"
  6. if $ready eq "0"
  7. C:endcli
  8. endif
  9. LAB start
  10. C:requestchoice >env:operation "Lethal Lha Intuitive" "Choose the operation you wish to perform" "Add file" "Extract File" "List archive" "Delete File" "QUIT"
  11. if $operation eq "0"
  12. C:endcli
  13. endif
  14. if $operation eq "1"
  15. skip Add
  16. endif
  17. if $operation eq "2"
  18. skip Extract
  19. endif
  20. if $operation eq "3"
  21. skip List
  22. endif
  23. if $operation eq "4"
  24. skip Delete
  25. endif
  26. LAB Add
  27. echo "Please select archive name"
  28. C:requestfile >env:archivename TITLE="Archive name?"
  29. echo "Please select file to add to archive"
  30. C:requestfile >env:filename TITLE="Filename"
  31. C:Lha a $archivename $filename
  32. skip end
  33. LAB Extract
  34. echo "Please select Archivename"
  35. C:requestfile >env:archivename TITLE="Archive Name?"
  36. echo "Please select destination directory where extracted files will go"
  37. C:requestfile >env:destdir TITLE="Destination Directory?"
  38. C:lha x $archivename $destdir
  39. skip end
  40. LAB List
  41. echo "Please select archive to list"
  42. echo "Press CTRL-C to end"
  43. C:requestfile >env:archivename TITLE="Archive Name?"
  44. C:lha vv $archivename
  45. C:wait 30 secs
  46. skip end
  47. Lab Delete
  48. echo "Please select archive to delete from"
  49. C:requestfile >env:archivename TITLE="Archive Name"
  50. echo "Please enter name of file to delete"
  51. C:requestfile >env:file TITLE="File to remove from archive"
  52. C:lha d $archivename $file
  53. Skip END
  54. Lab END
  55. C:Requestchoice  >env:again "Lethal Lha Intuitive" "Do you want to perform another operation?" "YES" "QUIT"
  56. if $again eq "0"
  57. C:endcli
  58. endif
  59. skip start back